5 DEF SEG=&H40:POKE &H78,4:DEF SEG:REM PRINTER TIME-OUT
10 ON ERROR GOTO 80
15 CLS:PRINT "ATTEMPTING TO SEND TEXT TO THE PRINTER"
20 FOR A=1 TO 10
30 LPRINT "THIS IS TEST TEXT FOR THE PRINTER"
40 NEXT A
50 LPRINT CHR$(12);
60 ON ERROR GOTO 0
70 SYSTEM
80 RESUME 90
90 ON ERROR GOTO 0
100 CLS:PRINT "THE PRINTER IS NOT RESPONDING."
105 PRINT:PRINT "IS IT ON-LINE?      IS IT PLUGGED IN?"
107 PRINT:PRINT "MAYBE TRY TURNING IT OFF AND BACK ON."
110 PRINT:PRINT
120 PRINT "HIT ANY KEY TO CONTINUE"
130 IN$=INKEY$:IF IN$="" THEN 130
140 SYSTEM

